home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
024 - Big U Macroworks.dsk
/
FRENCH.BYE.bas
< prev
next >
Wrap
BASIC Source File
|
2019-02-16
|
400b
|
10 lines
10 D$ = CHR$(4): PRINT D$"PR#3": PRINT
12 PRINT D$"BLOAD BYE.CODE"
15 VTAB 10
20 PRINT "This program modifies the ProDOS quit code for French users.
25 PRINT : PRINT "Press Esc to exit, or"
28 PRINT "press Return to modify ProDOS now: ";
30 GET X$: IF X$ = CHR$(27) THEN HOME : END
40 IF X$ < > CHR$(13) THEN 30
110 PRINT D$"BSAVE PRODOS,TSYS,A$5700,L768,B$3700"
120 PRINT D$"-PRODOS"